cd "/Users/jordangans-morse/Dropbox/US Vote Buying/APR_replication/

//TABLES IN ARTICLE

//Table 1:  Willingness to Sell in Congressional Election

//columns 1-3 (YouGov)
clear
import delimited "YouGovClean.csv"

global controls income republican_strong democrat_strong age female education black asian hispanic other registered competitive
    
eststo clear
eststo sell_25_less_2016:   areg sell_for_25_less   $controls, robust absorb(state_code)
eststo sell_100_less_2016:  areg sell_for_100_less  $controls, robust absorb(state_code)
eststo sell_1000_less_2016: areg sell_for_1000_less $controls, robust absorb(state_code)


//columns 4-12 (MTurk)
clear
import delimited "MTurkClean.csv"

global controls income republican_strong democrat_strong age female education black asian hispanic other registered competitive

eststo sell_25_less_2018a:    areg sell_for_25_less   dem_impt 			    $controls, robust absorb(state_code)
eststo sell_25_less_2018b:    areg sell_for_25_less            vote_matters $controls, robust absorb(state_code)
eststo sell_25_less_2018c:    areg sell_for_25_less   dem_impt vote_matters $controls, robust absorb(state_code)
eststo sell_100_less_2018a:   areg sell_for_100_less  dem_impt 			    $controls, robust absorb(state_code)
eststo sell_100_less_2018b:   areg sell_for_100_less           vote_matters $controls, robust absorb(state_code)
eststo sell_100_less_2018c:   areg sell_for_100_less  dem_impt vote_matters $controls, robust absorb(state_code)
eststo sell_1000_less_2018a:  areg sell_for_1000_less dem_impt 			    $controls, robust absorb(state_code)
eststo sell_1000_less_2018b:  areg sell_for_1000_less          vote_matters $controls, robust absorb(state_code)
eststo sell_1000_less_2018c:  areg sell_for_1000_less dem_impt vote_matters $controls, robust absorb(state_code)


//make table
esttab sell_25_less_2016 sell_100_less_2016  sell_1000_less_2016 sell_25_less_2018a sell_25_less_2018b sell_25_less_2018c sell_100_less_2018a sell_100_less_2018b sell_100_less_2018c sell_1000_less_2018a sell_1000_less_2018b sell_1000_less_2018c, ///
se(3) b(3) r2 nogaps star(+ 0.10 * 0.05 ** 0.01 *** 0.001) compress unstack replace label ///
title(Respondents' Willingness to Accept Vote-Buying Offer (Congressional Candidate)) cells(b(star fmt(3)) se(par fmt(3))) ///
collabels("") nonumbers starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001)  mtitles("\$25" "\$100" "\$1000" "\$25" "\$25" "\$25" "\$100" "\$100" "\$100" "\$1000" "\$1000" "\$1000") /// 
order(dem_impt vote_matters income democrat_strong republican_strong age female education black asian hispanic other registered competitive) ///
varlabels(income "Income" democrat_strong "Strong Democrat" republican_strong "Strong Republican" dem_impt "Democracy is Important" vote_matters "Voting Matters" registered "Registered Voter" education "Education" age "Age" female "Female" black "Black" asian "Asian" hispanic "Hispanic" other "Other Minority" competitive "Competitive District" _cons "Constant") ///
mgroups("Respondent Would Sell at Specified Price or Below" "Respondent Would Sell at Specified Price or Below", pattern(1 0 0 0 0 0 1 0 0 0 0 0) span prefix(\multicolumn{@span}{c}{) suffix(}))
//note: need to manually add fixed effects "YES YES YES" line 

////////

//Table 2: Willingness to Sell in Presidential Election


//columns 1-3 (YouGov)
clear
import delimited "YouGovClean.csv"
    
global controls income republican_strong democrat_strong age female education black asian hispanic other registered 
    
eststo clear
eststo pres_sell_25_less_2016:   areg sell_for_25_less_pres   $controls, robust absorb(state_code)
eststo pres_sell_100_less_2016:  areg sell_for_100_less_pres  $controls, robust absorb(state_code)
eststo pres_sell_1000_less_2016: areg sell_for_1000_less_pres $controls, robust absorb(state_code)


//columns 4-12 (MTurk)
clear
import delimited "MTurkClean.csv"

global controls income republican_strong democrat_strong age female education black asian hispanic other registered 

eststo pres_sell_25_less_2018a:    areg sell_for_25_less_pres   dem_impt 			  $controls, robust absorb(state_code)
eststo pres_sell_25_less_2018b:    areg sell_for_25_less_pres            vote_matters $controls, robust absorb(state_code)
eststo pres_sell_25_less_2018c:    areg sell_for_25_less_pres   dem_impt vote_matters $controls, robust absorb(state_code)
eststo pres_sell_100_less_2018a:   areg sell_for_100_less_pres  dem_impt 			  $controls, robust absorb(state_code)
eststo pres_sell_100_less_2018b:   areg sell_for_100_less_pres           vote_matters $controls, robust absorb(state_code)
eststo pres_sell_100_less_2018c:   areg sell_for_100_less_pres  dem_impt vote_matters $controls, robust absorb(state_code)
eststo pres_sell_1000_less_2018a:  areg sell_for_1000_less_pres dem_impt 			  $controls, robust absorb(state_code)
eststo pres_sell_1000_less_2018b:  areg sell_for_1000_less_pres          vote_matters $controls, robust absorb(state_code)
eststo pres_sell_1000_less_2018c:  areg sell_for_1000_less_pres dem_impt vote_matters $controls, robust absorb(state_code)

//make table
esttab pres_sell_25_less_2016 pres_sell_100_less_2016  pres_sell_1000_less_2016 pres_sell_25_less_2018a pres_sell_25_less_2018b pres_sell_25_less_2018c pres_sell_100_less_2018a pres_sell_100_less_2018b pres_sell_100_less_2018c pres_sell_1000_less_2018a pres_sell_1000_less_2018b pres_sell_1000_less_2018c, ///
se(3) b(3) r2 nogaps star(+ 0.10 * 0.05 ** 0.01 *** 0.001) compress unstack replace label ///
title(Respondents' Willingness to Accept Vote-Buying Offer (Presidential Candidate)) cells(b(star fmt(3)) se(par fmt(3))) ///
collabels("") nonumbers starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001)  mtitles("\$25" "\$100" "\$1000" "\$25" "\$25" "\$25" "\$100" "\$100" "\$100" "\$1000" "\$1000" "\$1000") /// 
order(dem_impt vote_matters income democrat_strong republican_strong age female education black asian hispanic other registered) ///
varlabels(income "Income" democrat_strong "Strong Democrat" republican_strong "Strong Republican" dem_impt "Democracy is Important" vote_matters "Voting Affects Outcome" registered "Registered Voter" education "Education" age "Age" female "Female" black "Black" asian "Asian" hispanic "Hispanic" other "Other Minority"  _cons "Constant") ///
mgroups("Respondent Would Sell at Specified Price or Below" "Respondent Would Sell at Specified Price or Below", pattern(1 0 0 0 0 0 1 0 0 0 0 0) span prefix(\multicolumn{@span}{c}{) suffix(}))
//note: need to manually add fixed effects "YES YES YES" line 



//TABLES IN APPENDIX

//Table A1: Other Price Points - Congressional Election

//columns 1-3 (YouGov)
clear
import delimited "YouGovClean.csv"
    
global controls income republican_strong democrat_strong age female education black asian hispanic other registered competitive 
    
eststo clear
eststo sell_50_less_2016:   areg sell_for_50_less   $controls, robust absorb(state_code)
eststo sell_200_less_2016:  areg sell_for_200_less  $controls, robust absorb(state_code)
eststo sell_500_less_2016: areg sell_for_500_less $controls, robust absorb(state_code)


//columns 4-12 (MTurk)
clear
import delimited "MTurkClean.csv"

global controls income republican_strong democrat_strong age female education black asian hispanic other registered competitive

eststo sell_50_less_2018a: areg sell_for_50_less    dem_impt 			   $controls, robust absorb(state_code)
eststo sell_50_less_2018b: areg sell_for_50_less   			 vote_matters  $controls, robust absorb(state_code)
eststo sell_50_less_2018c: areg sell_for_50_less    dem_impt vote_matters  $controls, robust absorb(state_code)

eststo sell_200_less_2018a: areg sell_for_200_less  dem_impt 			   $controls, robust absorb(state_code)
eststo sell_200_less_2018b: areg sell_for_200_less 			 vote_matters  $controls, robust absorb(state_code)
eststo sell_200_less_2018c: areg sell_for_200_less  dem_impt vote_matters  $controls, robust absorb(state_code)

eststo sell_500_less_2018a: areg sell_for_500_less  dem_impt 			   $controls, robust absorb(state_code)
eststo sell_500_less_2018b: areg sell_for_500_less  		 vote_matters  $controls, robust absorb(state_code)
eststo sell_500_less_2018c: areg sell_for_500_less  dem_impt vote_matters  $controls, robust absorb(state_code)

//make table
esttab sell_50_less_2016 sell_200_less_2016 sell_500_less_2016 sell_50_less_2018a sell_50_less_2018b sell_50_less_2018c  sell_200_less_2018a sell_200_less_2018b sell_200_less_2018c sell_500_less_2018a sell_500_less_2018b sell_500_less_2018c, ///
se(3) b(3) r2 nogaps star(+ 0.10 * 0.05 ** 0.01 *** 0.001) compress unstack replace label ///
title(Respondents' Willingness to Accept Vote-Buying Offer (Congressional Candidate)) cells(b(star fmt(3)) se(par fmt(3))) ///
collabels("") nonumbers starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001)  mtitles( "\$50" "\$50" "\$50"  "\$200" "\$200" "\$200" "\$500" "\$500" "\$500") /// 
order(dem_impt vote_matters income democrat_strong republican_strong age female education black asian hispanic other registered competitive) ///
varlabels(income "Income" democrat_strong "Strong Democrat" republican_strong "Strong Republican" dem_impt "Democracy is Important" vote_matters "Voting Matters" registered "Registered Voter" education "Education" age "Age" female "Female" black "Black" asian "Asian" hispanic "Hispanic" other "Other Minority" competitive "Competitive District" _cons "Constant") ///
mgroups("Respondent Would Sell at Specified Price or Below" "Respondent Would Sell at Specified Price or Below", pattern(1 0 0 0 0 0 0 0 0 0 0) span prefix(\multicolumn{@span}{c}{) suffix(}))



//Table A2: Other Price Points - Presidential Election

//columns 1-3 (YouGov)
clear
import delimited "YouGovClean.csv"
    
global controls income republican_strong democrat_strong age female education black asian hispanic other registered 
    
eststo clear
eststo pres_sell_50_less_2016:   areg sell_for_50_less_pres   $controls, robust absorb(state_code)
eststo pres_sell_200_less_2016:  areg sell_for_200_less_pres  $controls, robust absorb(state_code)
eststo pres_sell_500_less_2016:  areg sell_for_500_less_pres  $controls, robust absorb(state_code)


//columns 4-12 (MTurk)
clear
import delimited "MTurkClean.csv"

global controls income republican_strong democrat_strong age female education black asian hispanic other registered 
  
eststo pres_sell_50_less_2018a: areg sell_for_50_less_pres   dem_impt 			   	$controls, robust absorb(state_code)
eststo pres_sell_50_less_2018b: areg sell_for_50_less_pres  		  vote_matters 	$controls, robust absorb(state_code)
eststo pres_sell_50_less_2018c: areg sell_for_50_less_pres   dem_impt vote_matters 	$controls, robust absorb(state_code)

eststo pres_sell_200_less_2018a: areg sell_for_200_less_pres dem_impt 			    $controls, robust absorb(state_code)
eststo pres_sell_200_less_2018b: areg sell_for_200_less_pres 	      vote_matters 	$controls, robust absorb(state_code)
eststo pres_sell_200_less_2018c: areg sell_for_200_less_pres dem_impt vote_matters 	$controls, robust absorb(state_code)

eststo pres_sell_500_less_2018a: areg sell_for_500_less_pres dem_impt 			    $controls, robust absorb(state_code)
eststo pres_sell_500_less_2018b: areg sell_for_500_less_pres          vote_matters 	$controls, robust absorb(state_code)
eststo pres_sell_500_less_2018c: areg sell_for_500_less_pres dem_impt vote_matters 	$controls, robust absorb(state_code)

//make table
esttab pres_sell_50_less_2016 pres_sell_200_less_2016 pres_sell_500_less_2016 pres_sell_50_less_2018a pres_sell_50_less_2018b pres_sell_50_less_2018c  pres_sell_200_less_2018a pres_sell_200_less_2018b pres_sell_200_less_2018c pres_sell_500_less_2018a pres_sell_500_less_2018b pres_sell_500_less_2018c, ///
se(3) b(3) r2 nogaps star(+ 0.10 * 0.05 ** 0.01 *** 0.001) compress unstack replace label ///
title(Respondents' Willingness to Accept Vote-Buying Offer (Presidential Candidate)) cells(b(star fmt(3)) se(par fmt(3))) ///
collabels("") nonumbers starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001)  mtitles( "\$50" "\$50" "\$50"  "\$200" "\$200" "\$200" "\$500" "\$500" "\$500") /// 
order(dem_impt vote_matters income democrat_strong republican_strong age female education black asian hispanic other registered) ///
varlabels(income "Income" democrat_strong "Strong Democrat" republican_strong "Strong Republican" dem_impt "Democracy is Important" vote_matters "Voting Matters" registered "Registered Voter" education "Education" age "Age" female "Female" black "Black" asian "Asian" hispanic "Hispanic" other "Other Minority"  _cons "Constant") ///
mgroups("Respondent Would Sell at Specified Price or Below" "Respondent Would Sell at Specified Price or Below", pattern(1 0 0 0 0 0 0 0 0 0 0) span prefix(\multicolumn{@span}{c}{) suffix(}))



//Table A3: Covariates Only - 2018 Congressional Election


clear
import delimited "MTurkClean.csv"

global controls income republican_strong democrat_strong age female education black asian hispanic other registered competitive

eststo sell_25_less_2018:    areg sell_for_25_less 	  $controls, robust absorb(state_code)
eststo sell_50_less_2018:    areg sell_for_50_less 	  $controls, robust absorb(state_code)
eststo sell_100_less_2018:   areg sell_for_100_less   $controls, robust absorb(state_code)
eststo sell_200_less_2018:   areg sell_for_200_less   $controls, robust absorb(state_code)
eststo sell_500_less_2018:   areg sell_for_500_less   $controls, robust absorb(state_code)
eststo sell_1000_less_2018:  areg sell_for_1000_less  $controls, robust absorb(state_code)

esttab  sell_25_less_2018 sell_50_less_2018 sell_100_less_2018 sell_200_less_2018 sell_500_less_2018 sell_1000_less_2018, ///
se(3) b(3) r2 nogaps star(+ 0.10 * 0.05 ** 0.01 *** 0.001) compress unstack replace label ///
title(Respondents' Willingness to Accept Vote-Buying Offer (Congressional Candidate)) cells(b(star fmt(3)) se(par fmt(3))) ///
collabels("") nonumbers starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001)  mtitles("\$25" "\$50" "\$100" "\$200" "\$500" "\$1000" "\$25" "\$50" "\$100" "\$200" "\$500" "\$1000") /// 
order(income democrat_strong republican_strong age female education black asian hispanic other registered competitive) ///
varlabels(income "Income" democrat_strong "Strong Democrat" republican_strong "Strong Republican" registered "Registered Voter" education "Education" age "Age" female "Female" black "Black" asian "Asian" hispanic "Hispanic" other "Other Minority" competitive "Competitive District" _cons "Constant") ///
mgroups("Respondent Would Sell at Specified Price or Below", pattern(1 0 0 0 0 0) span prefix(\multicolumn{@span}{c}{) suffix(}))





//Table A4: Covariates Only - Presidential Election


clear
import delimited "MTurkClean.csv"

global controls income republican_strong democrat_strong age female education black asian hispanic other registered 

eststo pres_sell_25_less_2018:    areg sell_for_25_less_pres    $controls, robust absorb(state_code)
eststo pres_sell_50_less_2018:    areg sell_for_50_less_pres    $controls, robust absorb(state_code)
eststo pres_sell_100_less_2018:   areg sell_for_100_less_pres   $controls, robust absorb(state_code)
eststo pres_sell_200_less_2018:   areg sell_for_200_less_pres   $controls, robust absorb(state_code)
eststo pres_sell_500_less_2018:   areg sell_for_500_less_pres   $controls, robust absorb(state_code)
eststo pres_sell_1000_less_2018:  areg sell_for_1000_less_pres  $controls, robust absorb(state_code)

esttab  pres_sell_25_less_2018 pres_sell_50_less_2018 pres_sell_100_less_2018 pres_sell_200_less_2018 pres_sell_500_less_2018 pres_sell_1000_less_2018, ///
se(3) b(3) r2 nogaps star(+ 0.10 * 0.05 ** 0.01 *** 0.001) compress unstack replace label ///
title(Respondents' Willingness to Accept Vote-Buying Offer (Congressional Candidate)) cells(b(star fmt(3)) se(par fmt(3))) ///
collabels("") nonumbers starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001)  mtitles("\$25" "\$50" "\$100" "\$200" "\$500" "\$1000" "\$25" "\$50" "\$100" "\$200" "\$500" "\$1000") /// 
order(income democrat_strong republican_strong age female education black asian hispanic other registered competitive) ///
varlabels(income "Income" democrat_strong "Strong Democrat" republican_strong "Strong Republican" registered "Registered Voter" education "Education" age "Age" female "Female" black "Black" asian "Asian" hispanic "Hispanic" other "Other Minority" competitive "Competitive District" _cons "Constant") ///
mgroups("Respondent Would Sell at Specified Price or Below", pattern(1 0 0 0 0 0) span prefix(\multicolumn{@span}{c}{) suffix(}))



//Table A5: Robustness to Likely Voter Variable - 2018 Congressional Election


clear
import delimited "MTurkClean.csv"

global controls income republican_strong democrat_strong age female education black asian hispanic other registered competitive vote_intent

eststo sell_25_less_2018a: areg sell_for_25_less    dem_impt 			   $controls, robust absorb(state_code)
eststo sell_25_less_2018b: areg sell_for_25_less   			 vote_matters  $controls, robust absorb(state_code)
eststo sell_25_less_2018c: areg sell_for_25_less    dem_impt vote_matters  $controls, robust absorb(state_code)

eststo sell_100_less_2018a: areg sell_for_100_less  dem_impt 			   $controls, robust absorb(state_code)
eststo sell_100_less_2018b: areg sell_for_100_less 			 vote_matters  $controls, robust absorb(state_code)
eststo sell_100_less_2018c: areg sell_for_100_less  dem_impt vote_matters  $controls, robust absorb(state_code)

eststo sell_1000_less_2018a: areg sell_for_1000_less  dem_impt 			     $controls, robust absorb(state_code)
eststo sell_1000_less_2018b: areg sell_for_1000_less  		   vote_matters  $controls, robust absorb(state_code)
eststo sell_1000_less_2018c: areg sell_for_1000_less  dem_impt vote_matters  $controls, robust absorb(state_code)

esttab sell_25_less_2018a sell_25_less_2018b sell_25_less_2018c sell_100_less_2018a sell_100_less_2018b sell_100_less_2018c sell_1000_less_2018a sell_1000_less_2018b sell_1000_less_2018c, ///
se(3) b(3) r2 nogaps star(+ 0.10 * 0.05 ** 0.01 *** 0.001) compress unstack replace label ///
title(Respondents' Willingness to Accept Vote-Buying Offer (Congressional Candidate)) cells(b(star fmt(3)) se(par fmt(3))) ///
collabels("") nonumbers starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001)  mtitles( "\$25" "\$25" "\$25"  "\$100" "\$100" "\$100" "\$1000" "\$1000" "\$1000") /// 
order(dem_impt vote_matters income democrat_strong republican_strong age female education black asian hispanic other registered competitive vote_intent) ///
varlabels(income "Income" democrat_strong "Strong Democrat" republican_strong "Strong Republican" dem_impt "Democracy is Important" vote_matters "Voting Matters" registered "Registered Voter" education "Education" age "Age" female "Female" black "Black" asian "Asian" hispanic "Hispanic" other "Other Minority" competitive "Competitive District" vote_intent "Likely Voter" _cons "Constant") ///
mgroups("Respondent Would Sell at Specified Price or Below" "Respondent Would Sell at Specified Price or Below", pattern(1 0 0 0 0 0 0 0 0 0 0) span prefix(\multicolumn{@span}{c}{) suffix(}))


//Table A6: Robustness to Likely Voter Variable - Presidential Election


clear
import delimited "MTurkClean.csv"

global controls income republican_strong democrat_strong age female education black asian hispanic other registered vote_intent

eststo pres_sell_25_less_2018a: areg sell_for_25_less_pres    dem_impt 			   $controls, robust absorb(state_code)
eststo pres_sell_25_less_2018b: areg sell_for_25_less_pres  			 vote_matters  $controls, robust absorb(state_code)
eststo pres_sell_25_less_2018c: areg sell_for_25_less_pres    dem_impt vote_matters  $controls, robust absorb(state_code)

eststo pres_sell_100_less_2018a: areg sell_for_100_less_pres  dem_impt 			   $controls, robust absorb(state_code)
eststo pres_sell_100_less_2018b: areg sell_for_100_less_pres 			 vote_matters  $controls, robust absorb(state_code)
eststo pres_sell_100_less_2018c: areg sell_for_100_less_pres  dem_impt vote_matters  $controls, robust absorb(state_code)

eststo pres_sell_1000_less_2018a: areg sell_for_1000_less_pres  dem_impt 			     $controls, robust absorb(state_code)
eststo pres_sell_1000_less_2018b: areg sell_for_1000_less_pres  		   vote_matters  $controls, robust absorb(state_code)
eststo pres_sell_1000_less_2018c: areg sell_for_1000_less_pres  dem_impt vote_matters  $controls, robust absorb(state_code)

esttab pres_sell_25_less_2018a pres_sell_25_less_2018b pres_sell_25_less_2018c pres_sell_100_less_2018a pres_sell_100_less_2018b pres_sell_100_less_2018c pres_sell_1000_less_2018a pres_sell_1000_less_2018b pres_sell_1000_less_2018c, ///
se(3) b(3) r2 nogaps star(+ 0.10 * 0.05 ** 0.01 *** 0.001) compress unstack replace label ///
title(Respondents' Willingness to Accept Vote-Buying Offer (Congressional Candidate)) cells(b(star fmt(3)) se(par fmt(3))) ///
collabels("") nonumbers starlevels(+ 0.10 * 0.05 ** 0.01 *** 0.001)  mtitles( "\$25" "\$25" "\$25"  "\$100" "\$100" "\$100" "\$1000" "\$1000" "\$1000") /// 
order(dem_impt vote_matters income democrat_strong republican_strong age female education black asian hispanic other registered competitive vote_intent) ///
varlabels(income "Income" democrat_strong "Strong Democrat" republican_strong "Strong Republican" dem_impt "Democracy is Important" vote_matters "Voting Matters" registered "Registered Voter" education "Education" age "Age" female "Female" black "Black" asian "Asian" hispanic "Hispanic" other "Other Minority" competitive "Competitive District" vote_intent "Likely Voter" _cons "Constant") ///
mgroups("Respondent Would Sell at Specified Price or Below" "Respondent Would Sell at Specified Price or Below", pattern(1 0 0 0 0 0 0 0 0 0 0) span prefix(\multicolumn{@span}{c}{) suffix(}))



